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ABSTRACT 


Be he TS TO TEST AND DIAGNOSE THE 
of Te PRTAL LINE INTERFACE WHICH core cS A 


AS Sees 


Sere at te Tes. 


a. AT A TIME); THIRD POR 
arenes vee er 
REQUIREMENTS 
EQUIPMENT 
POP-11 
DC-14 MASTER CONTROL MODULE (M8334) 

AT LEAST 1 DC-14 CHANNEL MODULE (M8333) 

INDUSTRIAL 14 CONTROLLER(S) 

WITH M7481 HIGH SPEED SERIAL INTERFACE 

THE PROGRAM OCCUPIES ALL OF 4K WORDS OF PDP-11 MEMORY 
PRELIMINARY PROGRAMS 

OP eaalconian 14 CONTROLLERS SHOULD BE ABLE TO RUN TEST 


LOADING PROCEDURE 

METHOD 

PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED 
STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 


THE FOLLOWING IS A TABLE OF SWITCH REGISTER SETTINGS AND 
THEIR OPERATION UPON THE PROGRAM: 


SR SET AS ACTION 
1S 1 SCOPE LOOP 
0 DON’T LOOP 
14 1 DON’T HALT ON ERROR 
13 Bon TPR NT ERRORS 
0 PRINT ERRORS 
le 1 LOOP_ON THIS CHANNEL 
0 *T_LOOP 
11 1 T ALL TESTS (PART 1 OR 2) 
0 “Hh T 
10 1 LONG CLOCK TEST (24 HOURS) 8 8 


4.2 
%.2.1 


4.2.2 
4.2.3 


4.3 

4.3.1 
4.3.2 
4.3.3 


64.3.4 
' 4.3.5 
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NOTE: CEDENCE OVER 
Ri REPEATS ALL TESTS IN PART 1 EXCEPT CLOCK TEST 


STARTING ADDRESSES 


COOP (NO INDUSTRIAL 14) UNIOUE CHANEL TESTS (BART 1)” 


START THE PROGRAM AT LOCATION pore ie RUN OPEN LOOP 
(WITH INDUSTKIAL 14) UNIQUE CHANNEL TESTS (PART 2) 


START THE PROGRAM AT LOCATION 000210 TO RUN THE CLOSED 
LOOP (NO INDUSTRIAL 14) SIMULTANEOUS CHANNEL TESTS (PART 3) 


PROGRAM AND/OR OPERATOR ACTION 


care, MoD VIDUAL 
Se Le aR a eae 
KE HAKE SURE THAT SWITCHES ARE eT Gor, STA re 
GUREXT 10. MRSTER CONTROL, MODULE) THEN 1 At eREXT 70 


IF A INDUSTRIAL 14 IS TO BE coeecre? 


7g Haietig ee ene ee REG Re I, 


IF _NO INDUSTRIAL 14’S ARE TO BE CONNECTED, CONNECT THE 
OUTPUT OF THE INDIVIDUAL TRANSHITTERS | wv THEIR 
RESPECTIVE RECEIVERS EITHER AT THe ROOU RODULE OR THE END 


OF THE CABLES, WHICHEVER IS DESIRED. 
POWER UP THE PDP-11 AND THE INDUSTRIAL 14(S) 


LOAD THE ABSOLUTE PROGRAM INTO THE PDP-11 USING THE 
ABSOLUTE LOADER (NORMAL MODE). 


BRING S (SEE 4.2 ABOVE) 
into The SEITCH Te 1STERS SS “LOAD ADDRESS” 


SET THE SWITCH REGISTER PER 4.1 wie (BE SURE TO SET 
oe ly AVAILABLE CHANNEL NUMBER (OCTAL) IN SR3 TO O IF 
MORE T' 1 CHANNEL IS TO BE TESTED). DEPRESS “START” 


—_— ee es 


RUN SHORT CLOCK Test (2 minutes) DOL 


2. T TION (IF APPROPRIATE) EO] 
4.3.8 PROGRAM MILL NOW RUN TQ. COMPLETION (1 


S.2 


5.3 


' 6.2 


_ 8.2.1 THE CLOSED LOOP UNIQUE CHANNEL TESTS WILL STOP AT OOWNGO 


6.3 


8.2 


(ASSUMING NO 

OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 
(SEE 4.1 ABOVE) 

SUBROUTINE ABSTRACTS 

(NONE ) 

PROGRAM AND/OR OPERATOR ACTION 
(SEE 4.3 ABOVE) 

ERRORS 

ERROR HALTS AND DESCRIPTION 


MOST OF IN_THE PROGRAM ARE PRECEDED BY 
ERROR rYPEOUTS  HOMEVER IF IN DOUBT ABOUT THE C OF 
THE ERROR HALT, CONSULT THE LISTING (AND THE STACK POINTER). 


ERROR RECOVERY 


TO ere AN CONDITION AFTER AN HALT, SET THE 
SWITCH RISTER PER 4.1 AND DEPRESS ™ TNUE™ 


THE ERROR MESSAGES OUTPUT BY 

CONTAIN: A DESCRIPTION OF THE TEST BEING PERFORMED; THE 
CHANNEL FAILING: THE SPECIFIC ERROR CONDITION: AND, IF 
APPROPRIATE, THE CORRECT AND FAILING DATA WORDS. 
RESTRICTIONS 

STARTING RESTRICTIONS 

NONE IF PROCEDURE IN 4.3 (ABOVE) IS FOLLOWED. 

OPERATING FESTRICTIONS 

NONE IF PROCEDURE IN 4.3 (ABOVE) IS FOLLOWED. 


MISCELLANEOUS 


go NDEN 
rer IF SHORT CLOCK 
LONG CLOCK TEST HAS SELECTED (IN THE ar : 
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PROGRAM COMPLETION ADDRESSES 


8.2.2 


8.2.3 


9.0 
9.1 
9.1.1 


9.1.2 


, 9.1.3 


9.1.4 


9.1.5 


WHEN THE SHORT CLOCK TEST IS COMPLETE. DEPRESSING FOl 
“CONTINUE” WILL REPEAT THE CLOCK TEST ONLY. 


I TS W TOP AT 010626 
BS SPRL GPE UE RAS bIRELEINE Sine 
THE CLOSED LOOP SIMULTANEOUS CHANNEL TESTS DO NOT STOP 
EXCEPT FOR . THIS TEST SHOULD BE RUN FOR AT LEAST 
FIVE MINUTES TO CONFIRM THE PROPER OPERATION OF THE 
HARDHARE . 
PROGRAM DESCRIPTION 
CLOSED LOOP UNIQUE CHANNEL TESTS 
TESTOI (SR=000S32) LOAD AND READ SCRS CHANNEL SELECT 


nes TEST on THE cHMnEL SELECTIO TO CPiON BI BITS 


OF Scks REGIS 


DATA WORD WORD, AN © THEN HEN THE DA DATA i WORD I und Is 
1 CHECK ITS TENTS. we 


TESTO2 (SA=000642) LOAD AND READ SCTS CHANNEL SELECT 


THIS TEST CHECKS THE ABILITY TO LOAD INTO 
AND READ OUT OF THE CHANNEL SELECTION BITS 
OF THE SCTS REGISTER. OF THE 


DATQ WORD, AND THEN THE DATA WORD ITSELF IS 
LOADED INTO THE THEN THE SCTS IS READ 
“TO CHECK ITS , 


TESTG3 (SA=000752) LOAD AND READ INTERRUPT ENABLES 
THIS TEST CHECKS THE ABILITY TO LOAD INTO AND 





READ OUT THE I I BITS 
bel ofS” Bh 01 beet 1h RRUPT 
ett HO THEN FeO BECK At CECKED, THE THIS IS 
REPEATED F FOR THE FLAG E BIT. THEN 1 

iS st IN SABI 

BIT 0 RE 


TESTOY (SA=001350) INTERRUPTS DISABLED AFTER “RESET” 


SUS Sa RN 


“RESET” INSTRUCTION. THE CURRENT 

INSTRUCTION 1S [SSUED. TS BRE THEN 
CHECKED 10 ASSURE THE a Tee eer Jt 

DISABLED. | 

TESTOS (SA=001444) LOAD AND READ SCTS BITS 0 AND 1 


THIS TEST CHECKS THE ABILITY TO LOAD AND 
READ BITS 0 AND 1 THE SCTS REGISTER. 


A COUNT PATTERN IS LOADED INTO, THEN READ 8 = 


9.1.6 


7.1.7 


9.1.8 


9.1.9 


| 9.1.39 


OUT OF BITS 0 AND 1 OF THE SCTS REGISTER, ONE GOl 
NUMBER AT A TINE. : 


TESTO& (SA=001536) TRANSMISSION AND RECEPTION (NON-INTERRUPT) 


THE TRANSMI fo RECEPTION 
OF OF GATR WORDS USING A_NON-I 
pote ag ¢ TRANSMITTED 
vie ee RECETVER 
ACTI OPERATI 


ae usin TH wits ieee USING THE 

DATA REPEATED FOR 

TRANS 

TESTO? (SA=002226) TRANSMISSION AND RECEPTION (INTERRUPT) 
THIS TEST CHECKS THE TRANSMISSION AND RECEPTION 


OF oF EWinowent. & OATR BROS TRARSATTTED 


TRANSMISSION MODE 2 “TRANSMISSION 
om FLAG” “RECEIVER Active TI 
a Reap 
CHANNEL STA S "USING THE ICRS 
REGISTER; TER 
IS CHEKCED USING ICD REGI THIS IS 
REPEATED FOR 4096 


THIS TEST CHECKS THE “RUN FLIP/FLOP*. 
AN "O200" IS ISSUED USING ISSION MODE 
1. AFTER AN INTERRUPT OCCURS, THE PROPER 
CHANNEL STATUS 15 CHECKED FOR AUNT BE 0 


USING THE I I ITABLE 
DELAY, RUN I Te acnIN Che exe Fo Have RETURNED 
TO THE “17 ofa 
TESTOS (SA=003410) WORD LOST FLIP/FLOP 
THIS, TEST TEST CHECKS. THE ser Tales LOST FLIP/FLOP”. 
raat TO a ROUSTRTAL 14 by ul Ui THouT CLEARING 
eh Channer STATUS 
1S SE CKE CHECKED FOR OF OR HORE LOST” TO BE SET USING 
THE ICRS REGISTER. 


TEST1O (SA=003726) REAL TIME CLOCK 


TIME cL 0Ce TO 
UREN od Rise arse, Tien iis is 


1 I 
TT ee es eee aE od 


3.2 
9.2.1 


| 9.2.2 


9.2.3 


| 9.2.5 


"I ON THE TELETYPE HO1 


"le OF Me Fone EST 
v he eo oF Th Bek he bee OUTPUTS “OD” ON 


END OF 24 HOURS. 
OPEN UNIQUE CHANNEL TESTS 
TEST 20 (SR=004622) TEST OF 14 INSTRUCTION DECODING 
THIS TEST VERIFIES THAT INE, TWO AND THREE WORD 
INSTRUCTIONS ARE PROPERLY DECODED BY THE DC-14E. ALL FLAGS 
ARE CHECKED AND TIMED TO MAKE SURE THAT THEY FUNCTION 
TEST 21 (SA=006676) TEST OF OUTPUT REGISTER 
THIS TEST CHECKS THE OUTPUT REGISTER FOR PROPER FUNCTIONING 


(THAT NO OUTPUT ReorSteR aS Ya ioe ARE LOST). THE 14 
ye L WI OF TRANSFER PC 
TO AND INS TONS. THIS ALLOWED 

TO RUN AND THE OUTPUT REGISTER IS MONIT 0 CHECK THAT 
ALL TRANSFERS TO THE OUTPUT REGISTER ARE CUTED IN ORDER. 
THE PROGRAM WRITTEN IN THE 14 MEMORY IS THE FOLLOWING: 

PC CONTENTS PC CONTENT: 

0000 OO46 (PC OUT) td (PC OUT) 
0001 0046 (PC OUT) 000 (PC QUT) 
0002 0136 (TD) 0010 (PC OUT) 
0003 1000 (ADDR) 0011 0136 (TD) 

0004 0136 (TD) 0012 1002 (ADDR. ) 

oo0s 1001 (ADOR.) 0013 0004 (CLR PC) 

THE BUFFER FROM READING THE OUTPUT REGISTER SHOULD CONTAIN 
0001 (PC) 

nO0e (PC) 

1000 (TD RESULT) 

1001 (TD RESULT) 

0007 (PC) 

0010 (PC) 

0011 (TD RESULT) 


TEST 22 (SA=007216) MEMORY TEST 
A MEMORY TEST IS PERFORMED ON THE 14 TO oa THAT THE 
T ALL MA AND 


TEST 222 (SA=007470) COF TEST 


THE bara FIELD rn Be rsa new te eo TEST To. 
are RIT (14735). ae baTA 
FI they” Neat 6 VERIFY THT NE DC-14 
CAN ADDRESS BOTH FIELDS CORRECT 


TEST23 (SA=010064) TURN INDUSTRIAL TRANSMITTER OFF AND ON 


Ls} 4 T CHECKS THAT ™ TURNS OFF THE 
at ea AT THE INDUSTRIAL AND KILLS “RUN”, 
“0200” _T THE TRANSMITTER BACK 


URNS - _—- +--+ ee ae eae eee ee ee Oe 


Dee ea... 


TI I01 
f ee ro As. 
aa beta) to ‘to ee 


9.3 CLOSED LOOP SIMULTANEOUS CHANNEL TESTS 
9.3.1 TEST3O (SA=010710) CONSECUTIVE INTERRUPTS 

THIS TEST CHECKS THAT SIMULTANEOUS INTERRUPT 

RE FROM MULT IN 

CONSECUTI 

Tien TER ae Ics 

REGISTER - IT 0, ais 

INTERRUPT otf 4 SSIVE 

READING OF TH fEGISTER. 

C) UNTIL 2 (Lies 

re ea 
9.3.2 TEST31 (SA=011164) MULTIPLE CHANNEL EXERCISER 

THIS TEST SIMULTANEOUSLY EXERCISES ALL CHANNELS. 

A SPECIFIC IS RUN BY ALL INDUSTRIAL 14'S 

AND CHE IN A BACKGROUND 

JOB SO THAT ISS AND “RECEIVER 

ACTIVE NFORMATION IS 

SENT T INDUSTRIAL 14°S USING A NON-INTERRUPT 

ENVI THE PROGRAMS "EXECUTED" BY THE 

PDP-14’S IS AS FOLLOWS. 
DATA WORD EXPECTED STATUS EXPECTED DATA WORD © TRANSMIT MODE 
000060 (EEM) EXT FLG eee ne 2 
| 000024 (IMP) EXT FLG 0 erence 2 
O00046 (ADDRESS) EXT FG ween 2 
DOOM (TRR PC, OT) EXT OUT FLG 000046 3 
i (TXD 0) EXT, OUT FLG 160000 3 
170000 (TYD 0) EXT; OUT FLG 170000 3 
| 000124 (JMS) ‘cs i i mons 2 
O00046 (ADDRESS) / 2 
| 000046 (TRR PC, OT) EXT, OUT FLG 000046 3 
900022 (TRM) 3° 0 2 
Os0128 (WORD) EXT, OUT FLG 050125 3 

( ) FLG ee ee 2 
120252 (WORD) EXT, OUT FLG 120252 3 
100226 (TRM) 2. Qe ae 2 
170377 (WORD) EXT, OUT FLG 170377 3 
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l 
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3 TITLE POP-11 DC-14€ DIAGNOSTIC MD-14-DCDCA-B 

c : 

: sDC14 DIAGNOSTIC FOR THE POP-11 (SLI-11) 

Q ; TRAP ERS 

g 000000 = 

My “RE T 40 

+ 

12 HALT ; TRAPPED TO PREVIOUS ADDRESS 

13 ENOR 

14 000200 * =200 

1S 000200 000137 o00s00 IMP BEGIN ;CLOSED LOOP UNIQUE CHANNEL TESTS 

16 000204 000137 004604 JMP BEGIN2 OPEN LOOP UNIQUE CHANNEL TESTS 

17 000210 000137 010704 IMP BEGINS CLOSE LOOP SIMULTANEOUS CHANNEL TESTS 
19 ;SOME GENERAL PURPOSE REGISTER DEFINITIONS 

20 000000 RO=%0 

21 000001 Ri=%1 

22 oo0002 Re=%2 

23 000003 R3=%3 

24 000004 R4=%4 

2S 000005 RS=%S 
2 000006 =%b 

27 000007 R7 =) 

23 o00000 CHANEL =RO 

30 000001 GOOD=R1 

31 o0000e2 IN=R2 

32 000003 TEMP=R3 

33 000004 CNTR=R4 

34 000005 AC= 

35 000006 SP=R6 

3 000007 PC=R7 

38 ;SWITCH REGISTER BITS 

33 100000 SCOPE =| ;SCOPE LOOP (SRIS=1) 

a a20000 NOPRNT=20000 DONT PRINT ON eR Iae1) 

42 010000 HOLDCH= 10000 *LOOP ON tits CARTNEL (SRi2=1) 

43 004000 REPEAT=4000 ‘REPEAT ALL TESTS (PARTI OR 2) (SRI1=1) 
4a 002000 LCLK=2000 RUN LONG OCkK TEST (SRL =1) 

4S 001000 MMODE = 1000 ‘MAI OraNCe MODE (NO OU FROM MODULE) (SR9=1) 
46 HIGHEST AVAILABLE CHANNEL (SR 3 TO QO) 
4g ; INSTRUCTIONS 

43 oo0240 NOP=000240 

1 ;SOME GENERAL PURPOSE POINTERS 

’ 

53 “PRINTER POINTERS 

S4 000214 177564 SUTCSR: 177564 CSR FOR TTY OUT 

55 000216 177566 OUTOBR: 177566 ‘OBR FOR TTY OUT 


? 
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S7 -SWITCH REGISTER POINTER 
58 177570 éwr: 177570 
60 - PROCES ATUS POINTER 
6 177776 ps: l 

;DC-14 POINTERS 
bs 177360 1CRS: 177360 INTERRUPT CHANNEL RECEIVER STATUS 

: 4 : TAT 
He ine ee BEB ae aM 
70 i Sc: 177372 i SELEC CHANNEL TA 
177376 LTH: 15 ! He : Ht 

73 000170 DCI4TV: 170 :DC14 TRAP VECTOR ( ADDRESS WORD ) 
m 000172 172 : (STATUS WORD) 
76 -SOME DC-14 LEFT HALVES 
77 177361 CRSI: ati 
78 177363 ICTS1: 177363 
79 177365 I: 1 
wes irae rea ree 
Be 170303 LTHI: 1 
84 - TEMP STORAGE AND VARIABLE CONSTANTS 
65 177760 BELAY: seu DELAY BETWEEN TRANSMISSION AND RECEPTION 
87 Ootee? "sy SECOND=TENTHS+1 
aS 1 aaadoes GOURSMINUTE?! 
a 50000 HICLK: 0 
91 LOCLK: O 
F STATIO: O 

DELY1: -1 
94 HEAD I : 
= 000000 HEAD2: O 
97 ; BEGINNING NG_ OF PROGRAM WHICH TESTS CHANNELS CLOSED LOOP (UNIQUELY) 
F yaa BEGINI: MOV ;SET UP STACK POINTER 
100 005746 TST Pres) :TO JUST BEFORE BEGINNING OF PROGRAM 
101 004737 013274 J PC, NOCACH : IF AN CREE eR PROCESSOR, 
103 017737 177504 000276 MOV aSWR, STATIO S61 UP STATION EOUNT” 
104 042737 177760 O00e76 BIC 8177760, STATIO TO 1°S COMP 
105 005137 000276 CoH iF Sak 3 700 
107 Spear 177464 TESTOO: CLR aPs GO 1.) PROCESSOR CECEL 0 
103 ;TEST THE LOADING AND READING OF THE SCRS CHANNEL SELECT BITS (11 TO 8) 
111 000536 012737 013456 000302 TESTOL: MOV #MESS 1 ,HEADL SET UP HEADERS 
112 000544 012737 013342 090304 MOV snEeeed, HE 
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012704 
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fe 


ee 
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ea 


177760 


Tyree 


17P480 
biee7e 


012312 
012576 


#-20, CNTR 


TESTIB: it CNTR, TEMP 
+ BECRSI LOAD COMPLEMENT OF DATA WORD 


Ss-ae8 


PREr 


TESTIA: LOAD REAL DATA WORD 
nove Be aked! i READ DATA WORD BACK 
Q L 
BR 1A ;YES 
BIC 8177760, IN : CLEAR LUOUS BITS 
Eo 6990, N 5 COM AND UNKNOWN DATA 
PC, ERROR ?NO, ERROR 
JSR = PC LooPd ;LOOP? 
FRc eine t TREREMENT DATA WORD, DONE? 
BNE T1B : NO, LOOP 
NOP 
;TEST THE LOADING AND READING OF THE SCTS CHANNEL SELECT BITS (11 TO 8) 
TESTO2: MOV HEAD ;SET UP HEADERS 
ny Mesos Hee 
TEST2B: MOV CNTR, TEMP 
Cor TEMP 
cite fee! gecrs1 ;LOAD COMPLEMENT OF DATA WORD 
MOV CNTR; GOOD 
TEST2A aie G00 ests ' DATA WORD 
5 Nove $1, IN ‘heap RATA WORD BACK 
JSR PC LogrO *LOOP? 
BR TESTER : YES 
BIC #1 , IN ‘CLEAR SUPERFLUOUS BITS 
CMP GOOD, IN ‘COMPARE GOOD AND UNKNOWN DATA 
BEQ +6 :0K? 
ISR PC, ERRORI : 
JSR PC,L ;LOOP? 
re TESToR The NT DATA WORD, DONE? 
ale EST2B +O COOP : 
sTEST THE LOADING AND READING OF THE INTERRUPT ENABLE BITS OF THE 
‘CHANNEL SET IN “CHANEL” VIA SCRS 
TESTO3: MOV ane ss3 HEAD! §;SET UP HEADERS 
MOV pe 9 ,HEAD2 
TO3LI1: HOV : TRY TO STORE O IN ALL INTERRUPT ENABLE BITS 
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169 001012 
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TEST3A: 


O05 PA Re REET HU PR 
es BNR BS 






12h BaiGlR ORRt 3 
173 Of 10177 1 HOV 
174 001 1771 MOV $READ 
ie ie tee Sia : ae 
138 Oot 4 Be nsinn! es SCORPARE. o80D. ONRNOUN DATA 
179 001086 sine SOKCERROR INTERRUPT ENABLE SET)? 
~ >> 7 
i Bie fee CA ie 
isi ooiG79 015403 big TO3L2: nov ;TRY TO STORE O IN ALL INTERRUPT ENABLE BITS 
te 
Ad & a 
183 Sottie O1000" TEST3B: AOV |MOVE CURRENT CHANNEL NUMBER 
191 OOLLLe poo040 ADD fee f" aaa INTERRUPT ENABLE” BIT 
iS i ie Te i ie Br 
+ OOP" 
1s rites Biers 170317 Bic {MEEK OFF SUPERFLUOUS BITS 
Bie se eee jOKCELAG. INTERRUPT ENABLE. SE7)? 
a a - ee 
’ 
BBlies Bt Rabs sires TO3L3: nov ;TRY TO STORE 1 IN ALL INTERRUPT ENABLE BITS 
i 
Se RTD To eo eufe 
a aie tne, te 2 i 
1 BNE 
1 
z16 001206 TEST3C: MOV CHANEL, GOOD =»; MOVE CURRENT CHANNEL NUMBER 
ES Ee re CN mm 
514 001220 017702 177008 MOV IN TREAD DATA BACK 
21S OO0l2e4 12576 JSR P LOOPO ; LOOP? 
ai} poise Bao 788 170317 Bic 5 17,18 ink OFF SUPERFLUOUS BITS 
cata eagies 7 et oe eR CERRO Ih RROR INTERRUPT 4 ABLE CLEAR) ? 
551 OOlSHG 004737 QISE7E TeR PE LOOPO. + NOOe? 
+ 0OP" 
$55 p28 : t ee 177760 Bov i jens 
224 001260 010403 TOSL4Y: MOV CNTR’ TEMP :TRY TO STORE 1 IN ALL INTERRUPT ENABLE BITS 


a ———EEE 


eee eee OE eee . 2 SS et 


NO1 
IME PIAGNOSTIC, MP=14-DCDCA-B MACYLI 3O(1OM6) 12-JUL-77 10:07 PAGE 5 
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4 
at 017776 Sie 7776, TEMP 
1 000060 #60, TEMP 
001 10377 176730 MOV TEMP, aSCRS 
ae B 
001 BNE 4 
001 10001 TEST3D: MOV L, GOOD MOVE CURRENT CHANNEL NUMBER 
ea =. pooge9 ADD 820 Se Inno" “ERROR INT TE “ BIT 
oat iE Bt yore NOV saree Th , ; 
1 12576 JSR Lobo * LOOP’ 
oot 170317 Br Test, IN Ee Y OFF SUPERFLUOUS BITS 
oot eit: Cie G00, 1h COMPARE GOOD AND UNKNOWN DATA 
a Oon737 012312 JSR PC, ERROR ;NO, ERROR 
1 0125 JSR PC’ LOOPO LOOP? 
001350 000755 BR TEST3D YES 
0013S2 000240 NOP 
;TEST INTERRUPT ENABLE BITS AFTER A RESET INSTRUCTION 
001354 012737 013623 000202 TESTOY: MOV #MESSY HEAD! § ;SET UP HEADERS 
001362 012737 013342 900304 MOV #MESS69, HEAD2 
901370 010003 TESTYA: MOV TEMP ;MOVE CHANNEL NUMBER 
1372 000000 ADO #0,T ADD IN FLAG AND ERROR INTERRUPT ENABLES 
i oman 
012576 J PC, LOOPO LOOP? 
a ite BR Testun ‘YES 
ie bene 17 Be Fay EEE OB mous ers 
is ae 2 SF te 
1 000060 860 
001430 020102 CMP 006, IN ; COMPARE GOOD _AND UNKNOMIN DATA 
eae as 912312 hid PC, ERROR l :NO ERROR - om 
Bb Bede) ger FEAL GPO iL OpP' 
1446 000240 NOP 


; TEST THE ABILITY TO LOAD AND READ BITS 1 AND O OF SCTS 


PSE RERBRRRR AAS sae duc auto hiuh Peet Be eea NaN sec e 


001450 012737 013670 000302 TESTOS: MOV #MESSS,HEAD! § ;SET UP HEADERS 
001456 012737 013342 000304 MOV #MESSE9, HEAD2 
001464 012704 177774 MOV 8-4, CNTR ;SET UP LOOP COUNTER 
BOia7e BLOTS? 176534 TesTsA: Nov Sooo nae TS OVE Gata TO acre. 
pote ieee 1rpesh MOV B00, oC READ pata BACK 

1 012576 ISR L0OPO * LOOP? 

1 1 TES : YE 

151 2702 170374 BIC #170374, IN ‘CLEAR SUPERFLUOUS BITS 
001514 Oe201 CMP GOOD, IN COMPARE GOOD AND UNKNOWN DATA 
001516 1 BEQ +6 : OK? 

1520 737 ‘012312 JSR PC, ERROR! :NO, ERROR 


cr eI ee a 


BO0e 
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PINCREMENT TRANSMITTED WORD 


*NO, LOOP 


;CHECK THE TRANSMISSION AND RECEPTION OF DATA WORDS USING A NON-INTERRUPT 


; TYPE OF ENVIRONMENT 


013736 0003202 TESTOE: 
176420 


INTERRUPT DISABLES 


B & Tt g dy 

2 8 Es z oes 3 

si ugt ef Hee |! 
leds bas! i 8 = 
= or Exes § « y k Sz 
Be a] ost Haat ebaue Lae 


ee i ft Le i. ei ba 


SUBSESIRUS ERPS EMDR ER EMSRS Se eSSSh en SSSR ame res 


eae 
2b Ee ee 
SESaESONus SNe haber tates Sonsetnstbecs 
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TEST68: 


. BRRCRMRREROR ROCCE RCRA MAM MAR RATAN 


COe 


, INTERRUPT DISABLE 





i. : 

pgs : eE : i : 

s og! ge ft. Bee ee a 
3 aes 4A ae 
g ied 
; BA coe ae, gee fe FE ot ys 
3 ; £2 B58 BE ES. eB sed ER 
& Bite es ae nhl, oe 7m : 
: REGGEGE EDSGASESRERNESGEERDEORDREEROORAPeDED vo EecReEe 
: ; 2 Bs 
¢ fe fe : 
7 Ebeee OS Gee ag ae & E EER 
ay 
He BES SES ee See 
Pe commer 





otittlaseieeiaamatadimadmanaetencente 
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ay BAY GE fae See es 
et minis? BE TE, 
a 2 med eG I = s 5 fade 
Ey 
AAn 1 8 ie ee 
~ Oy " sete ted ce |: peas SAL 
1 ee 


was SSGas SSSSSSHASS Rees RSE eSeeSne ebesebatecesatts 


8 oa 
sj ae Ole iif ae s 
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FERRETS 


| PERREREIEEOED Se aL baobab ee ee eee ea 





014141 000304 TST7Re: 
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— 
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8 CNTR ; INCREMENT DATA 


tT Nt BaPE SoMEMORE 
;NOT ZERO, LOOP 


4 
eg 
3 


001 TES 
TEMP ‘SELECT CURRENT CHANNEL AND TRANSMISSIONS MODE 3 
900003 83 | 
001000 175404 erfOOE, 
#4, TEMP 
ia rea Teh, SSC] 
Ler7? 003004 175410 aTST?R3 aBeuyTv i SET UP TRAP VECTOR ae 
teec, et ° TRAP SSOR 
ee ireies TEST7¢C: re Ps iBAISEY TO tEVED 


; TRANSMIT TO INDUSTRIAL-14 
#200, ast 51S TRANSMIT DONE SET? 
PC, ERROR2 YES, ERROR 


ae 
a is 
aE 


z 


sRECEIVER ACTIVE? 
TEMP ND: DONE. TESTING? 
‘NO, it 


e 
8 


71 ’ 
012434 EpRORZ YES, ERROR 
014272 000304 ehtSS7M, HEAD2 
000200 175260 astTs ;WAIT FOR TRANSMISSION DONE 
175242 : ;LOWER TO LEVEL 0 
000264 DELAY, TEMP :WAIT FOR INTERRUPT 
.7e 
175224 #340, aPS ;SORRY, TOO LATE, GO BACK TO LEVEL 7 


3 
g 


) 
014141 000304 TST7R3: Re ; TRAP RETURNS HERE 


4, INTERRUPT CHANNEL STATUS 


SSS3S BWSRsSCe SasMSewe ses ASSSSeR eS AOR 
e 


e~ 
EE 
+> 

re =< 
——_ 





sehen! SSG 


SORSR Se aeR Soe eSB IRR SORE O IS 


GOOD ‘COMPUTE EXPECTED STATUS 
000300 #300, GOOD : ote F 
CMP G000; IN :6 AND UNKNOWN STATUS 
BEQ +6 : OK? 
912312 ISR PC 1 NO, ERROR 
4166 000304 eMtSS7P, HEAD2 
030 175164 MOV aICd, IN ;GET INTERRUPTING CHANNEL DATA 
MOV CNTR, GOOD 
CMP GOOD; IN ;COMPARE GOOD AND UNKNOWN DATA 
BEQ . +6 : 0K? 
012312 JSR PC, ERROR NO, ERROR 
012576 JSR PC’ LOOPO LOOP? 
003066 BR TEST7C YES 
003070 TST7L1: INCB CNT : INCREMENT DATA 


me me re ee ee ee eee 
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SOS 003072 001263 BNE TEST7C 
506 oo3074 010000 a00 ry , CNTR iin geet Dare SOMEMORE 
tt 
eos cat gone 175134 MOV 14TV a0c14TV eT br” ao” MORE INTERRUPTS 
00311 175126 ADD #2, a0cl4T 
S10 003116 005077 175124 CLR Ce 
oil 003122 000240 NOP 


Bepckd. Pri! * BaSRAY=74 os: 


uly uw 
— ee 
[+s] ui 


FRENE £598? 


CEPR ERS CORUM ELKO BSS SRLS“ SUSAR RENO MS ONO oN cos 
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; CHECK THE RUN FLIP/FLOP AL 
AND ITS ERROR INTERRUPT IN THE 


014320 000302 TESTOS: MOV @MESS8, HEAD! ;SET UP HEADER 
TEMP ;SET UP SCRS WITH ERROR INTERRUPTS ENABLED 


gt ta O200 IN MODE (3) OF THE INDUSTRIAL-14 


ee a 

000001 #1, TEMP 

001000 175040 ara, 

000004 #4, TEMP 

175040 TEMP ascTs ;SET UP SCTS FOR TRANSMISSION MODE 3 
regi bo ae ;SET UP TRAP VECT 


14TVv+e2 Peco STATUS 
+E Biel rice TO LEVEL 


CED, RIT RAMARRY TE 1 2 Bete & wr 
’ 


aPs “LOWER TO LEVEL 0 

DELAY, TEMP WAIT FOR INTERRUPT 

.-2 

¢ ;SORRY, TOO LATE, GO BACK TO LEVEL 7 

-(§P) -(SP) 

TSTBRI: #MESSBB.HEAD2 ©; TRAP RETURNS HERE 

(SP)+, ($P)+ :ADD 4 TO SP 
14TV, QDCIYTV ;SET UP FOR NO MORE INTERRUPTS 
aocl4Tv 

aoe 14Tvee2 


iConpufe EXPECTED, STATUS 


’ 
, GOOD ERROR, UN=D RUN=0 BITS FLAG INTERRUPT DISABLED 
; TUS 


SyRGBSELES GS Gas NAS LOTS OSES GRAB ASER? 


,IN AND UNKNOWN STA 
per 1 nO. ERROR 
ee Scoe HEADZ 
CLR CNTR ;WAIT A WHILE 
INC CNTR 
BNE 8 
INC CNTR 
BNE 2 
MOV aSCRS, IN READ SCRS 
MOV CHANEL . GOOD :COMPUTE EXPECTED STATUS 
2 EEA? sconpane coon 0 Uw 
cr P 00 VIN :C AND UNK STATUS 
ISR PC, ERROR NO, ERROR 
ISR PC’ LOOPO Loop? 
BR TESTOS ives 
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569 ; TAPE 2 
s CHECK THE “WORD LOST” A BY ISSUING 2 TRANSFER WORDS 
;WITHOUT ACKNOWLEDGING THE FIRST 





570 
Ba 
012737 O14S3S 000302 TESTOS: MOV @MESS9,HEAD! § ;SET UP_HEADER 
tal ‘SETUP SCRS WITH NO INTERRUPTS ENABLED 
000060 860 
576 010377 174570 MOV TEMP 
aa 
258 Beioed 174544 PSUR 
580 1402 Q +6 
S81 062703 000004 84 er 7 “f : : 
Ea Trae ct F Taewsnt 0 98 The pM iar est 
Bal ef 174532 I “WAIT FOR TRANSMISSION DONE 
586 012777 003604 174534 MOV ea @OC1YTV ;SET UP TRAP VECTOR 
ee Gels ieee La ani 
BIC 43 NTERRUPT 
530 005077 CLR ’ ae TRANSMIT A SECOND WORD 
2q4 Ras o37 B ESHA ;WAIT FOR SECOND TRANSMIT DONE 
593 001774 ; BEQ 6 " ne 
ede ee badees Shy BELAY, TEMP beta A Whi 
5% 005203 INC TEMP 
597 1378 BNE 2 
oa gogsya 174424 HOV ;SORRY,T00 LATE,GO BACK TO LEVEL 7 
737 012434 J 
600 024646 CMP -(5P) -(SP) 
601 oie? 014571 000304 TST9RI: MOV ehESS 9A ; TRAP RETURNS HERE 
CMP (SP)+. (SP)+ -ADD 4 TO SP 
603 013777 000244 174422 MOV DCIYTY, BOCIYTV :SET UP FOR NO MORE INTERRUPTS 
604 062777 000002 174414 ADD #2. a0CL4TV 
ee Bete teased Gh eke yee 
607 i 1 _—" NOV tS TE C 
608 Oee70L 110340 ADD CHANEL 40200, a hs Lost, RE BT FLAG, FLAG INTERRUPTS DISABLED 
608 O1Ge Cie 6000 ,IN AND’ UNKNOWN STATUS WORD 
bi oo 12312 JSR PC, ERROR eee 
61 12576 JSR PC’LOOPO 
613 000656 BR TESTOS 
Bie ven 12472 WOR 2 AFTER CHANNEL DONE 
ple ee Eee Jen Pere 1 : hd Pek CHANNEL ? 
617 9005 32 JMP TESTOO S 
618 ADD #400, CHANEL 'NO. BUMP CHANNEL NUMBER 
61 000276 INC sTaTiO ‘DONE ALL CHANNELS? 
620 1 BEQ +6 YES 
bel 000532 JMP TESTOO ;NO, LOOP 
622 012472 JSR PC, BELL R AIAG” BELL AFTER ALL CHANNELS 
623 004737 012632 JSR PC’ LOOPe ;REPEAT ALL TESTS? 
624 000137 IMP BEGINI YES, GO BACK, DON’T DO CLOCK 
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003734 005000 CLR CHANEL ;ZERO CHANNEL NUMBER, DO CLOCK 
;CHECK THE REAL TIME CLOCK TO FUNCTION PROPERLY 
TEST10: MOV ee Tg teres ;SET UP HEADERS 
MOV sta! , HE 
al 
alts 


;CLEAR CLOCK INITIALLY 


CLR 
TSTLOA: TST ;WAIT FOR A NON-ZERO SECONDS READING 


ee 


T 
p00264 ROY QELAY, TERP -DELAY A WHILE 
001376 BNE = 
000770 BR TST10A ; TRY AGAIN 
mer? ines rstl0s: Sf eR ERO THIS TIME? 
. ate *TPoc > YES, i . 
174224 CL acts !NO, CLEAR CLOCK 
174220 TST acts : TRY AGAIN 





+6 0K! 
Sbaore TST1OC: reer’ a , 
000270 


178 vite TIOL1: ATS, K ;READ CLOCK COUNTERS 


LOCLK, IN ;MOVE TENTHS TO IN 
TENTHS, IN ‘DID CLOCK COUNT TENTHS OF SECONDS? 


T10L2 NO, CHECK FOR NO RIPPLE OF CARRIES 


ite FENTHS COUNT OVERFLOW? 


D 
NO 


= 
- 
AF 


SN 


z 

* 
8 
8 
a 


ae 

x 

5 

: 
gBZBBORTTeNGESC ER 


SEROP ATOR SORA C ONO SeSRRECR SOBA RAE OS RUE 


004102 001002 ; 
caret 1 000304 are Ife w2 ie tty 
tie ee Fhe boo 
dor ice 1201Ge 000 ,1N ; COMPARE EXPECTED AND UNKNOWN DATA 
Spa Se 75 012312 PC, ERRORI NO, ERROR 
ie ine Fe RU Be tome or commis 
Sor taB Wea 000275 MOVB  LOCLK+1, IN Mes, HOVE SPC ONDS f IN 
004144 012737 O1S044 000304 MOV #MES10C; HEAD2 
Opi ibions 7 che ECONO, IN i010 SECONDS CLOCK CHANGE? 
l 012434 JSR PC, ERROR2 : 
004164 105237 000267 INCB COND ; YES BUMP SECONDS 
670 Oov170 82737 000074 000267 CHPB #74, SECOND iO SECONDS COUNT OVERFLOW? 
672 200 403037 000267 CLRB “YES, CLEAR SECONDS 
673 204 Ol 015074 000304 MOV #NES100, HEAD2 
674 12 113701 000267 MOVB , 6000 
6 rita nite cHPB Go00 ,IN ; COMPARE EXPECTED AND UNKNOWN DATA 
678 75 012312 JSR PC ERROR :NO, ERROR 
679 OO4226 105737 000267 TSTB © SECOND ‘DIO SECONDS OVERFLOW? 
680 O04232 001134 BNE TIOL3 "NO, CHECK FOR NO RIPPLE OF CARRIES 


— = i wr ee we we - > + ~~ << —_ -- 
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n0Ne VB -HICLK,IN “MOVE MINUTES TO IN 
Stee 000304 ev Het og HEAD2 =” 
bee BAR i My MINUTE, IN i010 MINUTES CLOCK CHANGE? 
a4 PC, ERROR2 : 
l ea INCB MINUTE :YES, BUMP MINUTES 
000074 000270 fe #74, MINUTE ;DID MINUTES COUNT OVERFLOW? 
000270 YES, CLEAR MINUTES 
630 004300 012737 015152 000304 MOV WES OF, HEAD2 
ba an tis CMPB 6000, Th ; COMPARE EXPECTED AND UNKNOWN DATA 
a4 ae PC 1 ‘NO, ERROR 
Ege pAsaks 173670 is eek gcuR NOG OR SHORT TEST? 
6% 004330 OO1446 BEQ Tio 18 i SHORT : 
es tke — BNE Hot IND CHEEK Fa No RIPPLE OF CARRIES 
700 OO4344 012737 nee 000304 MOV Ses 106’ He AD2 , goles 
a ieee iste 7 ig en vee We are 
7 Aan paaags Tie FGoRRROR2 = END ERROR uns 
705 004370 122737 000030 000271 CMPB #30, HOUR DID HOURS COUNT OVERFLOW? 
oO 10307 1 BNEa HOUR ies, CLEAR HOUR 
708 l 1 000304 MOV S10H, HEAD2 
709 OOWi2 113701 000271 MOVE _- HOUR, GOOD 
710 193 CHP GOOD; IN ; COMPARE EXPECTED AND UNKNOWN DATA 
711 1 Q +6 ; 0K? 
fle 737? (012312 JSR PC, ERROR iNO, ERROR ol 
714 as 1201 BNE TIOL1 if NEXT CLOCK TICK 
71S OO4434 012777 000104 173554 MOV #104, Q0UTDBR ; YES, PRINT “D” (FOR DAY) 
71 oo4442 137 004036 JMP TioL! GO BACK FOR NEXT CLOCK TICK 
718 OOW44 122737 000002 000270 TIOLIA: cHPB #2, MINUTE 2 MINUTES COMPLETE? 
720 OO44S6 137 IMP T1OL1 :NO, GO FOR NEXT CLOCK TICK 
el amd Spare 173526 HOV #115, QOUTDBR Nes, PRPS “He (FOR MINUTE) 
723 OOW72 000137 003736 ina JMP TESTLO, : iLOOP Poe 
re Li ; 01S2S2 000304 | MOV 10t, HEAD2 
et Geis eff CMPB 568 Eh’ ;DID SECONDS CLOCK CHANGE? 
759 DONEDD DON73? 12434 ee pee Ee. ERROR 
730 Dees i T1013: Ove HiChKa In ZEXTRACT MINUTES 
732 ooo 012737 015300 000304 MOV 8MES10) , HEAD2 
733 420102 CHP yIN ;DID MINUTES CLOCK CHANGE? 
735 Sede 004737 012434 JSR PC, ERROR2 ‘YES, ERROR 
73% O04SS2 113702 73 TIOL4: MOVB HICLK+1,IN ‘EXTRACT HOURS 


aa ar ree 


= 





BISIBIFAIBREAS SANNA Sse LEAT ERE SURO S eae ToR eee S o 


< & 
se SE RS 


“ 
=S 





113701 


000137 


En & 


Se 


000271 
01 


012434 
004036 


K 
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M0 up , HEAD2 
0 CLOCK CHANGE? 
‘a OME A 
ERROR 
IMP TiOL1 ob Sef NEXT CLOCK TICK 
; TESTS WITH INDUSTRIAL-14 ATTACHED 


BEGIN2: MOY REGINA, SP Fat if 778 CENTRAL PROCESSOR, 


‘DISABLE CACHE MEMORY 
Hoy : foe N10 9 ict UP STATION COUNT 
ae at : Le To 0 
CLR : 


TEST OF INSTRUCTION 
pee INSTRUCTIONS a eI AND CHECKED 
DECODING AS ONE, TWO OR THREE WORD INS 


rested AGU Fees ath ho INTERRUPTS 


ADD #3 ent ;SELECT CHANNEL AND GNI 


“EXECUTE ONE WORD INSTRUCTIONS USING MODE 2; LDE 


foy weer tere: ;SET ERROR HEADINGS 


MOV 837, ONCNT ;GET LIST LENGTH 
HOV SONEURD, CNTR GET LIST STAR 
TsT20A: fev ET TOE ne TION 
* Rov al Sided Rat te 
1S: BIT y EXTERNAL FLAG? 
BNE es ; YE 
i aes! 
25 "OV re Y ,EXECNT sERROR 0 exT ne 
4§ BIT tet, 8016 HYhenanission DONE? 
a a ed 
JSR PC : TRANSMISSION NOT DONE 
- noe gecrs IN CHECK FOR LOOP 
aR TSt30R : LOOP 


Sib aioh erty ta ef 


DBDODDOMOWoonm 
ae fe bas Poe pe be ee 
0 ONO U £ WTO 


EUSA TOR SRE R KE SOO SOREN ES 
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000002 ADD #2, CNTR NG FOR ext JNSTRUCTION 
006246 NT 
ore ane BRANCH PBR NEXT INST 

TEST ONE WORD INSTRUCTIONS - GNI haat 3) 
#37, ONCNT 
BONEHRD,, CNTR ;SET UP TEST 
T 3 - GNI 

t TRer 
EXECNT SET TIMEOUT 


ce 


CGE 5 : 
ey Re 
5 
= 
gRaReseeees 
ay 





80 
Be 173122 1S SaSCRS EXTERNAL FLAG SET? 
1 013270 i He TINeQuT 
118 8 EXTERNAL FLAG 
1 4 013270 MOV ¥. EXECNT 
8 000200 173074 4§ Be lel eee DONE? 
1 013270 NC XECNT iT 
BS a Bom SE ll or one 
eh an aa! re 
IG ee! coe an ne 
oe 50 006246 DEC ONCNT ‘DONE WITH LIST 
005174 BNE TST208 
TWO WORD INSTRUCTIONS - MODE 2 (LDE) 
005176 012737 000006 006246 ;SET UP TEST 
005204 012704 006666 
005210 105077 173016 
14 173010 SET 2 Le 
11477 1 TST20C: 'SEND FIRST WORD 
013270 tSET TIMEOUT 
172766 7S: i CHECK FOR PREMATURE EXT FLG 





MOV 
MOV 
CLRB 
ADD 
MOV 
MOV 
001402 Brg NO 
ae JSR PREMATURE EXT FLG 
BNE YES 
INC -INC TIMEOUT 
1 BNE : CHE IN 
JSR ; pyheout 
1 3S: MOV ; 
1 MOV jSET TINE OUT 
ed cs: B11 iC CK obo EXT FLG 
i St 
006216 JSR “ERROR, NO EXT FLAG 
005330 017702 172674 6$: MOV 


M 
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012576 


Post R tne iat h t-PA REE RRB RE IA Se daca ia solibataiid aoR 4 





il 
co 


ee 


a 


ae 


8 





Sess AIS eee 
2 : 


a 


S| 


s 








JSR PC ,LOOPO 


BNE TST20c 


TWO WORD INSTRUCTIONS - MODE 3 


RB SelB 

CLRB  aSCTS 

ADD #3, aSCTS 
TST200: fev ) 
7$ BIT d 

fl Fl cron 
2s BIT 8200, aSCTS 

BNE 

ae CNT 

SR PC, ERRORY 
SS: BIT SoH SSCRS 

BNE 6$ 

INC EXECHT 

BNE 3 

ISR PC ERRORY 
6S: MOV ry 

ape 

TSt 

ADD 82, CNTR 

DEC 

BNE ST200 


;LOOP? 
PS EARN" st 


(GNI) 


;SET UP TEST 


at MODE 3 - GNI 
MET Hinebore 
:EXT FLAG SET 


{PRROR, PREMATURE FLAG 


; 

° INC TIMEOUT 

HECK Back 

ERROR. TRANS DONE FLAG NOT SET 


eat. 


NB: We mea 
“ERROR, NO EXT FLAG 


;LOOP? 

;LOOP 

;NEXT INST 
‘ene W/ LIST? 


{TEST 3 WORD INSTRUCTION - MODE 2 - LDE 


MOV 84 T 

MOV STHREHD CNTR 

CLRB OSCTS 
TST20F: Roy CENTRI asco 

MOV DELAY, EXECNT 
9s: BIT 8200, YSCRS 

LF cmon 
2s: BIT #200, aSCTS 

BNE 3$ 

INC EXECNT 

BNE 95 


m3 
8 
3 
3 


;SET UP TEST 


2 - LOE 
iPORST word 

CHECK FOR PREMATURE EXT FLG 
PREMATURE EXT FLAG 


CHECK AGAIN 
STRANS FLAG NOT SET 


ee sua alee eR Stat ee SL Si Se WIN ISE W iN iad 


NOe 
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90S 012777 aoe 172402 3S: MOV #0, aSCD ; SECOND WORD 
S06 013737 000264 013270 MOV belay EXECNT  ;SET TIMEOU 
8 a te 000200 172360 8s: Be, , aSCRS i PREMATURE EXT FLAG? 
43 006216 ERRORY TURE FLAG 
910 032777 000200 172346 4S: BIT #8200, aSCTS 
1 BNE g - 
! ; 013270 Inc CNT : 
914 ra] J : TRANS NOT SET 
915 1 Goe006 172330 SS: ney WO’ eco THIRD WORD 
916 005706 012737 013270 MOV #0; EXECNT ‘SET TIMEOQU 
917 4 000200 172306 6S: BIT , aSCRS iEXT FLAG SET? 
aH 013270 EXECNT NO 
004737 006216 JSR PC, ERRORY ERROR, NO EXT FLAG 
: 7$: N 
BOs ASE ax te 
BR TSt20F : LOOP 
rie veers Ore oA a 
rie Be STeOF 
TEST THREE WORD INSTRUCTION - MODE 3 - GNI 
1 006246 MOV #4, ONCNT SET UP TEST 
15784 oezae STHRERD CNTR 
105077 172232 CLRB T 


ascTs 
een 172224 tsT20G: MOV CEATRS  Bscp i NST 
000200 : #200 


Y,EXECNT § ;SET TIMEOUT 
PREMATURE FLAG? 


a 





172202 9S ,aSCRS 
‘PREMATURE FLAG 
3$ YES 
013270 EXECNT INC TIMEOUT 


% 
3 
m 
: 


; TIMEOUT - TRANS NOT DONE 
;SECOND WORD 


¥, EXECNT 
YS CRS ; PREMATURE FLAG? 


$ 


; 

+4 
ASR SO SS 

: 

e 


cioneoee 


- 
BS 
ae 


000200 
006216 
povesd ) 
BObS06 172116 4S: 
013270 
006216 
00200 


aT 

rates roped ae pe OO MATURE FLAG 
Oe Oe Gae777 art ASOD oocTS ; 

114 001005 BNE S$ : YES 

il INC EXECNT 

i ss 8 

1 J , ERRORY ;ERROR, TRANSMISSION NOT DONE 

1 1 172100 SS: MOV "ascd : THIRD WORD 

13% 01 013270 MOV a0, EXECNT 

144 172056 6S: BIT ; EXT FLAG SET? 
006152 001005 BNE 7§ : YES 


B03 
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WnRaGaEE BERENS we 5 ebcrar cece SEes 


a1: kes : 
ee PS ee: 
re a SSIOUSRASNON dadadaadaate “s 


z PRPREPTPIO SOOO RCRA RR RAR RE RETR PELE RE Paee seoeesasasasaS 


& 
8 
5 
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DCOCAB.P11 


z z es ae 

Bont : eee seeese 

tak ft SeppecEsases creases 
s2 gE EEE _s 


000200 171656 38: 


a 
Bebe 
ee mB 


erate isis tenet tie feieieiwiutel eis a ee sumuen dui cere ER eR SSS 


fom eee eee heme om Kem Rem Rem am Kee Rom Kem Kem Kom Kem hoe hem koe kee koe kee ee ee ee ce cea ee er ee ee ee ee ee 


Pie 
1 





LENGTH 


R 
SCTART TRANSMISSION 
'NO, CHECK AGAIN 

‘ENTER EXTERNAL MODE 


Pr) g 
ro onl ~ = 
2 : = 
: cde nes Bed Se 
oO we x= 7 
38 Zs 
86 5 ar 
“= 83 af sae 
Se gt Shs utng 
Seip poe ie ogbaenis sth 
= ££3 a Bos esze bossy 





000302 
000304 
171272 
171270 
171254 18 
171242 
006246 


2e58e Seceesataees 
fe ae 
8s Gis) deeaeeatanCeseous 
BER EME Re a er 


a a a a a ed ag at wd wd tt ot tt tt te 
eb Ny ng hd mh re dd ed tt ed ead ed ed Ot ed eg a et 





ee : ey 


eo ee og od eo ed 


FREcAd PEE BISWSTIC MBs -Ococe-8 MRcrLL sOCLONG) 12-JUL- 


OUTPUT REG FLAG SET? 
NOV OUTREG INTO BUFFER 


;LEAVE EXTERNAL MODE 


ah Ssieiatc 


DEC 
BNE 


Shes ceaEsous 


ONCNT 
25 
NOW LET 14 RUN, MONITOR OUTPUT REGISTER 
sR, 
J i ' 
By on onl 
TABLE FULL NOW VERIFY IT’S CORRECTNESS 


+ 
= ceed dd Gee 
seme SSS igotouachenee 
— BBSDBSDESESSOSSEIED 


1 LRAGAMBRBSS SYST PES PT RAAB RABSYISORSBTOW 


i oo ee eee Reon Maen ed edad eh oO ad on ed ed oe oe ond and hag n ed od ee een eet 
ete hee ee ee hee hee ee ee hee hee hom bee bem hee bee oe bee bee ham ham kam hem kom kor, kee, koe, ee, LL, LL LL LTT) 


I7llle 3S: 


171112 


005337 


aostyc_ m-14-0c00-8 oe 
- MACY11 30(1046) =e 10:07 PAGE 22 
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O2-MAY-77 09:12 


POP-1 
DCDCAR. Pll 


3 


R EXTERNAL MODE 


‘GET IN DC-14 FORMAT 


;CLR PC 


EN 


oe “. 4, la oS runs 
~ pean ee ee om etonws 


esanaaneane eats bY eae 


C6 El Be Ge is 
eo ee 
——. 


| MERERRREBSYTECSESERTMRTRRERTR AMT RAS BEAU AO ACH ATER 


hh hh a a ht dt tt tt ee kd ed ad ad wd wd wd wt 


orpssesn des are 
seek etasohesheh Ea 4 


MEMORY TEST - ADDRESS COMPLIMENT TEST 


‘WRITE DONE - VERIFY 


TEST22: CLRB @SCTS 


se 
A 
_ 


S$: 


766 
000302 


10000 
007232 


G 
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1228 007466 004737 012312 
if oe i 
ie 

1 

1236 

1e37 007504 012703 006524 
1238 007510 005037 000302 
i540 " 006506 
1e43 007534 001402 

ice 007536 005237 006506 
1 1 1 
1248 01 00S2Se2 
ibaa 007570 08737 006506 
1 417 

1 

iss Gees Ware RRR 
ie ee Wee Be 
1256 1 1 1 
12S7 007624 012703 O06eSe 
1258 007630 004737 006330 
i 

igs fore ce, fos 
1263 10200 
ee Bi 
is? 007660 012703 16 
1 bo2e70 fesr7 1 
1268 007676 001402 

Be See Sale Qe 
1271 10 004737 013110 
1375 23 737 Boe 336 
Be ee Bee 

1275 006506 
1276 ee 001402 

1277 012705 1202Se 
1e78 007740 020577 170272 
ibaa 000197 10034 
BR Ses Be Bie 
1eBe 007756 000401 

1283 007760 000402 


170340 


4§: JSR 


ITEST CDF FLOP 


TST222: MOV 


3 
SagsSys an Soa 


oy 


TST2eD: po 


6S: CMP 


TST2ec: JSR 


PC, ERROR 


ree 


8STATWD, TEMP 
HEAD] 
cits XEC STATUS WORD 
N 
Sn ;BIT 2 SET 4K/8K 
;4K/8K 


WRITE+4 ;WRITE 2525 IN FLD 0 


ORSIZ 8K? 
io ;NO 
eXEor 


WRITE+4 ;WRITE SeS2 IN FLDL 


;FLDO, EXP 2525 
; ERROR 


;4K/8K 
;8K; EXP. S2S2 
#120252, AC ;4K; EXP. 0000 
asco 


HO3 
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te FS ¥ 
te AS 
Lt 5 By 
zs 2 et 
a ¢ Sas 
ml g 325 8 
#5 ge wee § Js 
oxi ~zg a a io 
z e ca ae oy 
e 
vt hen ce 3 esi e + sees Pe ke 8 a S i 
a Ee ee 
Sigedd! See See S25 azazzege £Sze segs a ee bers 
ESRSSSE She Siig sadeeeeee ge SSSSesaauS so vsrgHerwstwass 
¥ 


T 
3K 


0153S2 000302 TEST23 
1 170052 

000001 170042 TST23A 
170026 


000300 170040 
000200 


0062S6 
16206 000304 TSTZ2A: 
16222 000304 TST228: MOV 


7011 


007504 
000004 
11 

010100 

0 

012434 

Tee 

000001 170014 


e ese 
gceced Ses See Seedesaeed Spee 
PECSGES OME ERE BOUEAGSES  Sez=euennomssncpasngmzeaR 


“ “I tt hd dg wt ot oe nd td ad ad Ot hd 4 od te tt 
oOo 2800 2800 2000000000 QQOOOOO0O00GOOOOOCOOOO00O000000 


ER ERRERE RRR RRC R RAMA RMR RATA TS 


Se ee eect Det here eee hee Tere Ieee fer eee hee Deen eae Deeee Kee Neem hare hee Loe, Fearn hae Trae Teen heen em, ran ae ae ee ee en an ne en ee ae ae ae ree ae pee ee ee ee ee ee ee ee ee ee ee 
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1340 010260 010001 MOV CHANEL , GOOD ; COMPUTE G000 STATUS 

1 1 140060 R00 é GOOD = ; ERROR RUN=0, INTERRUPTS DISABLED 
l 1 167736 T23L1: 4 :GET Nt STATUS 

1 1 1 che , tN : AND UNKNOWN STATUS 
ie 01 OON737 012312 Ee be ERROR AO. ERROR 

1 +R : TIMES? 

eS Hl me iia 

1348 gl 67720 asc 

1349 01031 fpa053 167712 ADD #3, aScTS ;SET MODE 3 

1380 010320 012777 160000 167710 MOV #160000,aSCD § ; ATTEMPT TO EXECUTE A “TYN 0” 
1 1 67676 BIT TS ‘WAIT FOR TRANSMISSION DONE 
1 1 ad ;SE 

1 1 15431 #5230 , HEAD2 

1354 O01 1 000230 T23L2: BIT #1 ;1S RECEIVER ACTIVE SET? 
1355 010364 001402 ‘emia BEQ ate iNO, OK 

ie aiGee Beets an A A 

l 1 23L2 NO, L 

1359 010366 012737 015475 MOV 8MES23E , HEAD2 

1360 010374 032777 167626 BIT #40000, 9SCRS §_ ; IS. THE 14 RUNNING? 

1361 o104Ge 001002 vipa 3 +6 iNO, OK 

bes BRIS eae eee: die Reefer oe 

1364 O10414 000001 167610 ADD #1. aSCTS ;SET MODE 1 

1 OOIae | O Bpsn0  ePera Hy BSbb Seer SOUTER TRANSMIT DONE 
139 tees ee BEQ a ye : 

1368 O1044O 012737 015516 304 MOV 8MES23F , HEAD2 

1369 O1gHae 167554 BIT 840000,3SCRS_- ; IS THE 14 RUNNING? 

1370 O104S’ at BNE +6 : 

1371 O10456 004737 0124 JSR PC YES, ERROR 

137 O10be 012737 O14141 000304 Ov ant S26, HEAD2 

1374 ste INC CNTR 

1375 010476 001376 BNE 2 

1376 O10S00 O0S204 INC CNTR ;WAIT A WHILE 

1377 010502 001376 BNE io 

1378 10504 017702 167520 MOV aSCRS, IN GET CHANNEL STATUS 

1380 010510 010001 MOV CHANEL , GOOD COMPUTE EXPECTED STATUS (RUN=1, RECEIVER ACTIVE=0) 
1381 010512 1 00060 ADD #60, GOOD : (INTERRUPTS DISABLED) 
1382 ot 16 102 CMP 6000, IN ‘OK? 

1383 pede 1402 BEQ . +6 : YES 

1384 010522 737 012312 JSR PC ‘NO, ERROR 

1385 010526 012737 O1SS5SS 000304 MOV 8MéS23H , HEAD2 

1386 O10 403077 167472 CLRB = asc 

1335 Ot ee: HOV si6b000, co cexecure*Re=TYNe Bm 

1389 O1Gees Basra Near 167450 BIT #200, age WAIT FOR TRANSMIT DONE 
1390 010562 001774 BEQ - 

1391 O1 CLR NTR 

139 1 000001 167434 T23L3: BIT #1, aSCRS ;RECEIVER ACTIVE SET? 

1 1 1004 BNE 4.4 : YES, OK 

1304 010576 O0S204 INC CNTR ‘DONE TESTING 

1395 010600 001372 BNE T23L3 "NO, LOOP 
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133 BIBER Tosrr TeFale raw: Tre sethe™ = ARTY For" 


012576 Pe LOOPO Pape Ane 
Ss : ‘i 


1402 010624 000137 010160 IMP TST23A rf at 
Ae HES ee Us a pede 
1 1 062700 HANEL INCREMENT L 
Re oc a Seen te 
eh: he Boi 004636 hid tt8re0 LOOP 
1410 Ol 737 012472 JSR PC, BELL RTAGE BELL AFTER ALL CHANNELS 
1411 010666 004737 012632 JSR PC’ LOOP2 REPEAT ALL TESTS 
1412 010672 000137 OO04604 IMP BEGINe YES 
1413 010676 Og0000 HALT : NO 
ata 010700 000137 004604 IMP BEGIN2 GO BACK 
1416 TAF 3 
Lal? “MULTIPLE CHANEL SIMULTANEOUS CLOSED LOOP TESTS 
1419 ROUT INE TO CHECK SIMULTANEOUS INTERRUPTS 
het TS OCG Bone ve vumensca. ono 
wel N VE ICAL 
1423 019704 01 o00s00 saaniie MOV SBEGIN} SP ;SET UP STACK POINTER 
1424 010710 ite 167304 000266 MOV ‘ THs SET UP STATION COUNT 
1425 010716 042737 177760 O00cbb BIC -TO 1’S 
14 O107e4 005137 000266 COM OF SWR 3 TO 0 
1427 O1 01 015636 000302 TEST30: MOV te ser 
1428 107% 000340 167256 MOV #340 :ROISE TO LEVEL 7 
1429 O01 TST30A: CLR CHANEL L NUMBE 
1430 O0107% Oi 000266 000276 MOV HS,STATIO ;SET uP LOOP” COUNT 
1431 010754 010003 TST308: MOV CHANEL’ TEMP 
1435 OLOZES Bina | Sevoae a 
14 1 1 167242 MOV TEMP, aSCRS ;SET UP SCRS 
1434 010766 010003 HOV CHANEL TE 

0770 oooo02 TEMP 
1436 010774 001000 167216 BIT #MMODE , 2SWR 
1437 011002 O01402 BEQ . +6 
1438 011004 000004 ADD #4, TEMP 
1439 011019 Lo7el6 MOV TEMP, aSCTS ;SET UP SCTS FOR MODE 2 
1440 011014 167216 CLR XNIT TO PDP-14 
1441 011020 000200 167204 BIT #200, aSCTS :WAIT FOR TRANSMIT DONE 
1442 011026 774 BEQ 
1443 O11 000400 ADD pido CHANEL ; INCREMENT CHANNEL NUMBER 
1444 011034 000276 INCB sratio DONE ALL CHANNELS? 
1445 O11 1345 BNE ST * NO 
1446 O110Me CLR CNTR 
1447 O11 INC CNTR ;WAIT A LITTLE WHILE 
1 11046 00176 BNE a 
1 il 01° 000266 000276 MOV TENTHS,STATIO ;SET UP STATION COUNTER 
1450 011056 O0S000 CLR ZERO CHANNEL NUMBER 
1451 O11060 012737 015666 000304 MOV 8MES30A, HEAD2 
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1452 011066 012777 O11110 167150 MOV #TST30C,9DC14TV ;SET UP TRAP VECTOR 

1 t 4 167144 NOY ae 14TV+2 : : 

t HAT IKBYY FoR [i tERaver 

1 111 TST30C: (SP)+, (SP)+ ‘ADD 4 TO 

1457 Ollll2 012777 000340 167102 MOV #340, aPS 

1458 lll 16711 14tv Soc 14TV ;SETUP FOR NO MORE INTERRUPTS 

1 lll 16711 L4Tv 

Net OLtia 017702 teehee TST300: MOV SicRS, IN. GET INTERRUPTING CHANNEL STATUS 

e3 Bttive Pest 000200 ey 8200, Gb0D s COMPUTE OG TD RE aND INTERRUPT ENABLES 

1464 O11 1 CMP GOON; IN : COMPARE GOOD AND UNKNOWN STATUS 

1465 O111 1 BEG +6 : 0K? 

1466 O111 012312 PC ERROR : NO, ERROR 

1467 O11 ibe 062700 000400 ADD W100, CHANEL j INCREMENT , CHANNEL NUMBER 

13e8 Olive 1 natin ate Aa RON oO seeene 

14 11174 012576 L tL 

1471 011200 000661 BR TSt30A - YES 

147e O1l202 000240 NOP 

147 ;MULTIPLE CHANNEL EXERCISER 

ee THIS PORTION STARTS THE BALL ROLLING 

14 11204 O1 015717 TEST31: MOV ane HEAD 1 

14 eee: ot re sade SOO SEE MOV aa Te NTHS ;SET UP STATION COUNT 

tar ihe os A te TENT aaatitsns OF due $°10 0 

1482 Gliese Wee SOOSEE 000276 HOV TENTHS,STATIO : 

1484 Lge vite 1 TST31A: J PC -SET UP T POINTERS 

148S ptt ie ota? 000352 ait ,@CHRPNT ; tu CHEERS Pata 

1466 O11es4 004737 011630 JSR PC, XMIT :SET UP TABLED DATA, appenisn IT TO_STATION 
| he et 4 

1 Bt ieee ees me SI t sDONE ALL LS? 

1489 011270 001364 BNE ST31A NO, LOOP 

tuay pers teas 000276 sb T TES STATIO 

Lise ott Sa2 l See COM eerie” 

14g ; THIS PORTION IS THE BACKGROUND ROUTINE 

1 11 1 TST31B: L,ascT ;SELECT CURRENT STATION 

14a? Biiats Bierar ATezES 00304 MOY SES 

1498 011320 013704 000300 MOV DELY1, CATR 

1499 alte tbloes 000200 166700 BIT te ; TRANSMIT DONE FLAG SET? 

12h il 000001 166666 TST3IC: Bt #1, aSCRS ‘IS RECEIVER ACTIVE? 

iSQ2 O11342 001004 BNE TSt31D ‘YES, 

1503 011344 005204 INC CNTR ‘NO, DONE TESTING? 

1504 01134 001372 BNE TST31C NO. L 

tepe Bi tgen Stones «Clee TST31D: Rov CHAE TEMP YES, ERROR 

1507 011356 000302 " swaB TEMP 


L 
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1508 011360 020337 00027E CMP TEMP | STATIO sDQNE ALL CHANNELS? 
Bit i eau 000400 fie ' L P os. nec INCREMENT CHANNEL NUMBER 
1Sl2 Oll TST31E: CLR OnE ALL CHANNELS, ZERO CHANNEL NUMBER 
12 il tae BR $4 ox :G0 

1514 O11 Mae 016025 000304 TSI iF: 1 ,teAoe ‘HERE IF TRANSMISSION DONE IS SET 

tele tid ABRRAP : 81, IN’ ;RECEIVER ST STILL ACTIVE? 

1517 O11416 001404 BEQ TST31H 

se as Bie. eae 

t tt 5 012434 3 5 

1521 


iUSTRG’ THE RONCINTERAUPT ENVIRONPENT IN THE 11 TO RECEIVE ATA 


1524 
1525 011430 012737 O14141 000304 TST31H: MOV Site 
4 ; SET 
fe BLISS BAT i) atom (Rit BETES sar 
1523 O11¥s0 Oe0ige CMP cm i {COMPARE GOOD AND UNKNOKN STATUS 
OK? 
1531 Bt des Boi 395 012312 #68 NO, ERROR 
1532 011460 032702 000100 BIT ec Aeron SHAS OUTPUT FLAG SET® 
1533 O11 46s 4 BEQ T Tait 
1 11466 Ol 166544 MOV GET DATA WORD 
1535 ONZE 017701 000126 Nov SoA TUR, 6900 sae TE EXPECTED DATA WORD 
1537 Ot 1eos 1 — CMP sit _ ; COMPARE GOOD AND UNKNOWN DATA 
1538 O11 i BEQ +6 ‘OK? 
tat ptyers ee eens 000104 TST31I ab aioe PNT ‘BUMP. CHARACTER POINTER TO NEXT ENTRY 
1541 pited3 pesr75 012310 000076 CMP 8—ND, ‘END OF TABLE? 
teug pies Sead 012120 o00066 oY seer @CHRPNT ies RESET POINTER DATA 
1544 011540 004737 011630 ISR PC, XMIT’ SETUP TABLED DATA, TRANSMIT TO STATION 
ISHS 011544 000703 BR TSt31D 
1547 ; SUBROUTINE TO SET UP TABLE POINTERS 
1548 ‘CALLED BY JSR PC,SETUP 
1550 01154 010003 SETUP: MOV CHANEL , TEMP ;COMPUTE TABLE ENTRY 
1551 011550 900303 SWAB ss TEMP 
1552 O11 103 ROL TEMP ; (CHANNEL NUMBER X 10) 
1553 011554 006103 ROL TEMP 
1554 O11 103 ROL TEMP 
1555 O11 000007 BIC 87.7 
1 O11 011720 ADD STABLE, TEMP :(+ TABLE) 
1 11 011620 TEMP 
1 il TST (TEMP) + 
1559 O11 1 011622 MOV TEMP, STATUM 
1560 011602 05723 TST (TEMP) + 
1561 O11604 O1 011624 MOV TEMP , DATUM 
1562 O11610 005723 TST (TEMP )+ 
1563 O11612 010337 011626 MOV TEMP, CHRPNT 
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1S64 O11616 RTS PC EXIT 
i Hits tue 
fee ‘ 
1570 ; SUBROUTINE TO TRANSMIT TO A STATION AFTER SETTING UP NEW DATA 
1571 ;CALLED BY JSR PC,XMIT 
1258 011630 017703 177772 XMIT: MOV SCHRPNT, TEMP =; SET_UP: 
1 1 1 (TEMP) +, : TER 
tee Gliem fissee | TERE} SSvehu ney By 
eee OtieeS Chane my OO ae EEN OMRERUNEL POR NO RECEIVER INTERRUPTS 
le BLES BOR oom Bi RSW 
1580 011660 01 166344 MOV TEMP, aSCRS 
1581 O11664 010003 MOV , TEMP 
1S SHEN Bie oe té«R ee 
1 11676 000004 #4, TEMP 
tee. OLI7OM 1 Roy fe x T T UP TRANSMITTER FOR PROPER MODE 
{ee Bit 0 Big 198356 166320 NOV o3EL8 : IT TO POP-I4 
1588 011716 000207 RTS PC EXIT 
1590 011720 TABLE= 
1591 012120 =. 4200 
; TABLE OF CHARACTERS,STATUS WORDS, DATA WORDS AND TRANSMIT MODE 
HARTB: . TER - EEM 
a 0 ; TATUS ExT 
2 ; TRANSMIT MODE 
4 sc - es 
ip XT 
2 :T.M. 
46 :C = ADOR 
260 :§ - EXT 
0 70 
So iT oe pe. OT 
360 ig - EXT, OUT 
46 70 
3 ;T.M. 
160000 C= TxD 0 
360 3S - EXT, OUT 
160000 30 
3 :7.M. 
170000 ‘C= TYD 0 
360 ;S - EXT, OUT 
170000 ;D 





eee eS = 
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O2-MAY-77 09:12 
3 ;T.M. 
000124 7C = JMS 
- i - EXT 
TM. 
00046 “C - ADOR 
260 3S - EXT 
0 :D 
1 § inf. T T 
1 0036 ig - ETF bef 
1 HOOONE 4B 7D 
1632 012226 000003 3 : :T.M. 2 
ies Ot Beare i - EY 
1635 Ol 0 iD 
16% 1 2 :T.M. 
1 1 125 050125 *C = WORD 
ibs fleen Gene bias lags 
1640 012246 reve 3 :T.M. 
1641 Ol 100226 C=. TRM 
16 1 260 *S - EXT 
1643 Ol 0 :D 
1 012256 900002 : iT. 
16 Olseee oouses seo :S - : Mt OUT 
1647 Olece4 1 120252 :D 
1648 Olcebs 000003 3 :T.M. 
1649 O1 100226 100226 :C = TRM 
1650 Ol227e O00260 260 :S - EXT 
1651 Qi2274 000000 0 :D 
1 1227 2 oT.M. 
1 12300 70377 i€ - WORD 
1 12302 :§ - EXT, OUT 
1655 012304 170377 170377 :D 
1656 012306 000003 :T.M. 
1657 12310 000000 END: 0 
1659 ;ERROR HANDER - DATA ERROR WITH TYPE OUT OF CONTENTS OF “GOOD” AND “IN™ 
1660 ‘CALLED BY JSR PC,ERRORI 
1 012312 004737 012576 ERRORI: JSR PC, LOOPO ;SCOPE LOOP? 
1663 012316 gog207 RTS ? rY 
1664 012320 G20000 165672 BIT #NOPRNT,@SWR § ;SUPPRESS TYPEOUT? 
1665 012326 001034 BNE : YE 
1666 012330 004737 012504 JSR PC HEDTYP :TYPE QUT HEADER 
1667 O1 005737 TST HEAD2 !OQUTPUT FORMAT? 
1668 1 00141 BEQ ERRIA : NO 
1669 01 006532 TST 
1670 O1 101 ERRIA 
1671 O1 000304 CLR HEAD2 
1672 Ol 12705 013343 MOV SF ORMES AC ;YES, OUTPUT FORMAT MESSAGE 
1673 912360 Oona? 012650 ISR PC, MESAGE 
1674 01 13066 JSR PC’ CRLF 
1675 012370 010105 ERRIA: MOV GOOD, AC ;OQUTPUT GOOD DATA IN OCTAL 


R7 


; SPACE 


;OUTPUT BAD DATA IN OCTAL 


;HALT ON ERROR? 


;YES 
;EXIT 


8 
q 


Es 
BE 


8 
8 


: 


on 
x 


Genes 


Saga tnovaase 


N 
Ww 
_ 


ERROR2: i= PC, LOOPO ;SCOPE LOOP? 


R7 ;YES 
BIT SNOPRNT,@SWR ; SUPPRESS TYPEOUT? 
ceo iii 
ISR HEDTYP :TYPE OUT HEADER 
ERR2A: BIT SNOHLT, 2SWR ‘HALT ON ERROR? 
BNE +4 ;NO 
ERCHLT: HALT : YES 
RTS R7 EXIT 
; SUBROUTINE TO RING BELL ON TTY 
*CALLED BY JSR PC, BELL 
BELL: MOV 87, AC ;MOVE BELL CODE TO AC 
ISR PC’ TYPE ‘PRINT IT (DING!) 
RTS PC :EXIT 
; SUBROUTINE TO TYPE OUT HEADERS 
‘CALLED BY ISR PC, HEDTYP WITH MESSAGE ADDRESSES IN HEAD1 AND HEAD2 
HEDTYP: JSR PC, CRLF 
MOV HEAD! , AC ;HEAD1 ALREADY PRINTED? 
BEQ HEDI ‘YES, TRY 
JSR PC, MESAGE NO, PRINT IT 
JSR PC 
CLR ADI 
MOV SS. AC ;PRINT “CHANNEL” 
JSR PC, MESAGE 
MOV , AC ;PRINT CHANNEL NUMBER 
SwAB.StiéC 
JSR PC, OPRINT 
JSR PC’ CRLF 
HED1: MOV HEAD2 , AC ;HEAD2 ALREADY PRINTED? 
BEQ HEDX YES, EXIT | 
JSR PC, MESAGE NO, PRINT iT 
JSR PC’ CRLF 
HEDX: RTS PC EXIT 


;$C LOOP TEST SUBROUTINE - EXIT TO CALL+2 IF SCOPE LOOP, CALL+4 IF NOT 
;CALLED BY JSR PC ,L OOPO 


ee we re i 8 ee eee ee 


Zededeoten : 


bs Hh bh | b= pm 2 = Pm b= b= Pe Pe be pe pe Be bh hs ps 
— 


See es etaa zoe 
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tb be bt bb be be  -  b b s  b  p ha ete 


QRRPBREB ISA TINA SESeRE ER 





-14E DIAGNOS 
1 O2-MAY-77 
12576 100000 165414 LOOPO: BIT eSCOPE, ISWR ;SCOPE SWITCH SET? 
Lebo ates BNE 10 iYES, DON'T Bur RETURN ADDRESS 
ists Speeds — are Be Peel 
LOOP ON CURRENT CHANNEL TEST § SBUROUT INE - EXIT TO CALL+2 IF LOOP, CALL+6 IF NOT 
; : 
12614 010000 165376 LOOPI1: BIT SHOLDCH,@SWR SC; SWITCH SET? 
iseee Blots ee iAgSs tt (Ou RETURN fooness 
5 S050 Re tt 
: T ALL TESTS TEST NE - EXIT TO CALL#2 OF REPEAT, CALL+6 IF NOT 
Rete ate TST }gneo” SBBRCKOED 
012632 032777 OOYO00 165360 LOOP2: BIT SREPEAT,@SWR § ; REPEAT SWITCH SET? 
DIseN? Qee7ie 000004 AOD aSP NO BUMP RETURN ADDRESS 
Bisete | pened Are OR tr 
Sete ae" "Yen Put aeeagess MSE fOoness IS IN AC 
1 1 013050 he cate. ten 
Bt itesie nov , TEMP 
Hees iuits MLOOP: nove (TEMP) +, AC ; CHARACTER INTO AC 
1 1 013050 MOV bFenp, TEMP 3 
Bie Doe? 013052 is ROR OPE. TYPE IND. TYPE OUT CHARACTER 
012674 000770 : BR mL bop “LOOP 
; SUBROUTINE, T0 TYPE OUT THE DONTENTS OF AC IN OCTAL 
12737 77773 «Ol OPRINT: MOV AQCNT SET UP COUNTER FOR S CHARACTERS 
01271 o1erar O15 a OLOOP1: ROY sot ne te dinepihins oe en on 
01271 000370 * Bic #370, AC CLEAR ALL BITS 2-0 
012722 000060 ADO #60, AC :ADD IN ASCII CODE 
sire Hie Bite eer Eh Shire 
1 i 13050 MOV OTEMP, AC *RESTORE AC 
ble"e 00600 ROR aC ‘MOVE 3 PLATE RIGHT 
Se |g Esse 
i 00 013044 INC CNT il E ENT ER, DONE? 
1278 000376 Bie 376, AC IVES, ASK OFF 0 BIT 0 
i B13082 ao tYPE CHARACTER 
O18778 1 13995 013044 MOV 8-5, OCNT ‘SET UP COUNTER FOR S CHARACTERS 
o1 3000 ot 013046 —— HOV BOTAR, OPNT Se! Up POINTER FOR CHARACTER PICKUP, FORWARD 
013012 004737 013052 " JSR PC, TYPE : TYPE CreRaC TER 


ee ee ee foe - ee — ran 


DOY 
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ts a PW oariz 
3046 
3044 
5140 
132 
000015 
30S2 


ISET UP WAIT PERIOD 
is 
YE 
PRI 


;PRINT CHANNEL NUMBER 


‘TEMP STORAGE 


OPN 
oc c 
PC g 
: COUNTER 
POINTER 
; SUBROUTINE TO PRINT THE CONTENTS OF AC 
ac 
“4 
PC 


2 
on o & Egg BG. Dp 
3 5 of ae 3 
es ¢£ e irs . 
oi “ : a om 3 : 
sf ee, oe : 

eye ates = 


; UNCONDITIONAL HALT 


PC, TYPE 


= 

. 
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RUN-TIME: 14 .6 
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